home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
prog
/
dnalib59.arj
/
TYPWRITE.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-10-27
|
348b
|
19 lines
DECLARE SUB CalcByte(Attr%,LowByte%,HiByte%)
DECLARE SUB Noise(Which%)
SUB TypWrite(Text$,Row%,Col%,Attr%) PUBLIC
CalcByte Attr%,FGround%,BGround%
FOR i% = 1 TO LEN(Text$)
a$ = LEFT$(Text$,i%)
b$ = RIGHT$(a$,1)
LOCATE Row%,Col%,0
PRINT b$;
IF b$ <> " " THEN
NOISE 4
END IF
INCR Col%
DELAY .1
NEXT i%
END SUB